100 POKE 53280,12
110 POKE 53281,12
120 INPUT"[147][144][211]CHRIFTNAME";N$
130 OPEN 15,8,15
140 OPEN 1,8,3,N$+",S,R"
150 INPUT# 15,A,A$,B,C
160 IF A<>0 THEN CLOSE 15:CLOSE 1:GOTO 120
180 DIM Z$(255,1)
200 FOR I=0 TO 1
210 FOR J=0 TO 255
220 INPUT# 1,Z$(J,I)
230 NEXT J,I
240 CLOSE 1
250 CLOSE 15
260 :
500 READ T$
505 IF T$="*" THEN END
510 OPEN 1,4:PRINT# 1,CHR$(8);
520 FOR I=0 TO 1
530 FOR J=1 TO LEN(T$)
540 PRINT# 1,Z$(ASC(MID$(T$,J)),I);
550 NEXT J
560 PRINT# 1
570 NEXT I
580 CLOSE 1
590 GOTO 500
600 :
1000 DATA "[212][197][211][212][196][210][213][195][203] ! - [211]PAETER AB [218]EILE [197][201][206][212][193][213][211][197][206][196]"
1010 DATA "DIE [218]EILEN EINGEBEN, DIE DEN"
1020 DATA "[212]EXT ENTHALTEN SOLLEN !"
1030 DATA -
60000 DATA "[193]LS LETZTES [203]ENNZEICHEN:"
60010 DATA "[196][193][212][193]  [211][212][197][210][206][195][200][197][206]"
60011 DATA *